home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_14_(11-1984).d64 / align test 64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  99 lines
  1. 1000 REM  ALIGNMENT  TEST  1.0
  2. 1005 REM  MODIFIED FROM PERFORMANCE
  3. 1010 REM  TESTPBY STEVE NIERS
  4. 1020 REM  VIC-20 AND COMMODORE 64
  5. 1030 REM  SINGLE FLOPPY DISK DRIVE
  6. 1040 :
  7. 1050 OPEN 1,8,15:OPEN15,8,15
  8. 1060 LT=35
  9. 1070 LT$=STR$(LT)
  10. 1080 NT=30
  11. 1090 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  12. 1100 PRINT"   ALIGNMENT   TEST"
  13. 1110 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  14. 1120 PRINT
  15. 1130 PRINT"  INSERT SCRATCH"
  16. 1140 PRINT
  17. 1150 PRINT"    DISKETTE IN DRIVE"
  18. 1160 PRINT
  19. 1170 PRINT"   PRESS RETURN[146]"
  20. 1180 PRINT
  21. 1190 PRINT"          WHEN RIADY"
  22. 1200 FOR I=0 TO 50:GET A$:NEXT
  23. 1210 GET A$:IF A$<>CHR$(13) THEN 1210
  24. 1230 :
  25. 1240 TI$="000000"
  26. 1250 TT=18
  27. 1260 PRINT#1,"N0:TEST DISK,00"
  28. 1270 C1$="   DISK NEW COMMAND   "+CHR$(13)
  29. 1280 C2$=" WAIT ABOUT 80 SECONDS"
  30. 1290 CC$=C1$+C2$:GOSUB 1840
  31. 1300 IF TI<NTTHEN1370
  32. 1310 PRINT"SYSTEM IS"
  33. 1320 PRINT"        NOT RESPONDING"
  34. 1330 PRINT" CORRECTLY TO COMMANDS"
  35. 1340 GOSUB 1880
  36. 1350 :
  37. 1370 PRINT"DRIVE PASS"
  38. 1380 PRINT"       MECHANICAL TEST"
  39. 1490 :
  40. 1510 TT=21
  41. 1520 OPEN 4,8,4,"#":FT=1
  42. 1530 NN%=(1+RND(TI)*254+NN%)AND255:PRINT#1,"B-P";4;NN%
  43. 1540 NN$="":FOR I=1 TO 255:NN$=NN$+CHR$(I):NEXT
  44. 1550 PRINT# 4,NN$;:FT$=STR$(FT)
  45. 1560 PRINT# 1,"U2:";4;0;LT;0
  46. 1570 CC$="WRITE TRACK"+LT$:GOSUB 1840
  47. 1580 PRINT#1,"U2:";4;0;FT;0
  48. 1590 CC$="WRITE TRACK"+FT$       :GOSUB 1840
  49. 1600 PRINT#1,"U1:";4;0;LT;0
  50. 1610 CC$="READ TRACK"+LT$        :GOSUB 1840
  51. 1620 PRINT#1,"U1:";4;0;FT;0
  52. 1630 CC$="READ TRACK"+FT$        :GOSUB 1840
  53. 1633 LT=LT-1:LT$=STR$(LT):IFLT>0THEN1550
  54. 1640 CLOSE 4
  55. 1650 :
  56. 1660 :
  57. 1670 PRINT" UNIT HAS FINISHED"
  58. 1680 PRINT"     ALIGNMENT TEST!"
  59. 1690 PRINT" PULL DISKETTE FROM"
  60. 1700 PRINT"  DRIVE BEFORE TURNING"
  61. 1710 PRINT"   POWER OFF."
  62. 1720 END
  63. 1730 :
  64. 1740 :
  65. 1750 PRINT"   CONTINUE (Y/N)?";
  66. 1760 FOR I=0 TO 50:GET A$:NEXT
  67. 1770 GET A$:IF A$="" THEN 1770
  68. 1780 PRINT A$""
  69. 1790 IF A$="N" THEN 1640
  70. 1800 IF A$="Y" THEN RETURN
  71. 1810 GOTO 1760
  72. 1820 :
  73. 1830 :
  74. 1840 PRINT CC$
  75. 1850 INPUT# 1,EN,EM$,ET,ES
  76. 1860 PRINTTAB(12)""EN;EM$;ET;ES;""
  77. 1870 IF EN<2 THEN RETURN
  78. 1880 PRINT" UNIT IS FAILING"
  79. 1890 PRINT"   ALIGNMENT  TEST"
  80. 1900 TM$=TI$:PRINT"ENTER SAME OR ALTERNATE"
  81. 1908 INPUT"FIRST TRACK (0 TO STOP)";FT
  82. 1909 IF FT<1 THENPRINT"ADJUST STOP AND RERUN:GOT01640
  83. 1910 TI$[178]TM$:[142]
  84. 1920 :
  85. 1930 [153]"WRITING DATA"
  86. 1940 [129] I[178]1000 [164] 2000:[152]CH,I:[130]
  87. 1950 [141]1850
  88. 1960 [160] CH:[142]
  89. 1970 :
  90. 1980 :
  91. 1990 [153]"READING DATA"
  92. 2000 [161]A$
  93. 2010 [129] I[178]1000 [164] 2000
  94. 2020 [132] CH,J
  95. 2030 [139] J[179][177]I [167] [153]"READ ERROR:WAIT":[141] 1850
  96. 2040 [130]
  97. 2050 [141] 1850
  98. 2060 [160] CH:[142]
  99.